home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / matenc.arc / ENCPGM.CMD < prev    next >
OS/2 REXX Batch file  |  1991-12-04  |  1KB  |  28 lines
  1.  ENCPGM:     CMD        PROMPT('Encapsulate an Object Program.')
  2.  
  3.              /*         ENCPGM -- Version 2 */
  4.              /*         Command processing program is CPP1580  */
  5.  
  6.              PARM       KWD(PGM) TYPE(QUAL) MIN(1) PROMPT('Program to +
  7.                           encapsulate:')
  8.              PARM       KWD(FILE) TYPE(QUAL) MIN(1) PROMPT('File name +
  9.                           containing object:')
  10.              PARM       KWD(MBR) TYPE(*NAME) DFT(*PGM) SPCVAL((*PGM)) +
  11.                           EXPR(*YES) PROMPT('Member name:')
  12.  
  13.              PARM       KWD(REPLACE) TYPE(*CHAR) LEN(1) RSTD(*YES) +
  14.                           DFT(*NO) SPCVAL((*YES '1') (*NO '0')) +
  15.                           EXPR(*YES) PROMPT('Replace existing +
  16.                           program:')
  17.  
  18.              PARM       KWD(AUT) TYPE(*CHAR) LEN(1) DFT(*NO) +
  19.                           SPCVAL((*NO '0') (*YES '1')) EXPR(*YES) +
  20.                           PROMPT('Grant like authority to obj:')
  21.  
  22.  QUAL:       QUAL       TYPE(*NAME) MIN(1) EXPR(*YES)
  23.              QUAL       TYPE(*NAME) DFT(*LIBL) EXPR(*YES) +
  24.                           SPCVAL((*LIBL)) PROMPT('Library name:')
  25.  
  26.              DEP        CTL(&AUT *EQ '1') PARM((&REPLACE *EQ '1')) +
  27.                           NBRTRUE(*EQ 1)
  28.